Sub muestra_err2()
    Dim dividendo, divisor, resultado As Double
    dividendo = 10
    For divisor = 3 To -3 Step -1
        If divisor = 0 Then
            Debug.Print "No se permite la divisin por 0."
        Else
            resultado = dividendo / divisor
            Debug.Print "(" & dividendo & ") / (" & divisor & ") = (" & resultado & ")"
        End If
    Next divisor
End Sub
